home *** CD-ROM | disk | FTP | other *** search
/ EIDOS Interactive Digital Press Kit ECTS 1997 / EIDOS Digital Press Kit - ECTS 1997 - Disc 1.iso / pc / mmenu.dir / Internal_70.ls < prev    next >
Encoding:
Text File  |  1997-08-29  |  1.1 KB  |  44 lines

  1. on selectlang
  2.   global lan
  3.   if lan = "e" then
  4.     set the visible of sprite 41 to 0
  5.     set the visible of sprite 40 to 0
  6.   else
  7.     nothing()
  8.   end if
  9.   if lan = "f" then
  10.     set the visible of sprite 41 to 1
  11.     set the visible of sprite 40 to 0
  12.     puppetSprite(43, 1)
  13.     set the memberNum of sprite 43 to 241
  14.     puppetSprite(44, 1)
  15.     set the memberNum of sprite 44 to 242
  16.     puppetSprite(45, 1)
  17.     set the memberNum of sprite 45 to 243
  18.     puppetSprite(46, 1)
  19.     set the memberNum of sprite 46 to 244
  20.     puppetSprite(47, 1)
  21.     set the memberNum of sprite 47 to 245
  22.     updateStage()
  23.   else
  24.     nothing()
  25.   end if
  26.   if lan = "g" then
  27.     set the visible of sprite 41 to 0
  28.     set the visible of sprite 40 to 1
  29.     puppetSprite(43, 1)
  30.     set the memberNum of sprite 43 to 231
  31.     puppetSprite(44, 1)
  32.     set the memberNum of sprite 44 to 232
  33.     puppetSprite(45, 1)
  34.     set the memberNum of sprite 45 to 233
  35.     puppetSprite(46, 1)
  36.     set the memberNum of sprite 46 to 234
  37.     puppetSprite(47, 1)
  38.     set the memberNum of sprite 47 to 235
  39.     updateStage()
  40.   else
  41.     nothing()
  42.   end if
  43. end
  44.